home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / util / misc / tritonrexx376.lha / TritonRexx / Rexx / Slider.rexx < prev    next >
OS/2 REXX Batch file  |  1995-09-16  |  2KB  |  68 lines
  1. /* Slider.rexx */
  2.  
  3. IF ~SHOW('LIBRARIES','tritonrexx.library') THEN DO
  4.    IF ~ADDLIB('tritonrexx.library',10,-30,0) THEN DO
  5.       SAY 'Kann die <tritonrexx.library> nicht öffnen!'
  6.       EXIT(10)
  7.    END
  8. END
  9.  
  10. windowtags =   WindowID(1),
  11.                WindowTitle('Slider'),
  12.                   'VertGroupA',
  13.                      'Space',
  14.                      'HorizGroupAC',
  15.                         'Space',
  16.                         TextID("_Slider",1),
  17.                         'Space',
  18.                         SliderGadget(1,100,50,1),
  19.                         'Space',
  20.                         TextID('50',2) 'TRAT_MinWidth 3',
  21.                         'Space',
  22.                      'EndGroup',
  23.                      'Space',
  24.                   'EndGroup',
  25.                'EndProject'
  26.  
  27. app = TR_CREATEAPP('TRCA_Name Slider')
  28.  
  29. IF app ~= '00000000'x THEN DO
  30.  
  31.    window = TR_OPENPROJECT(app,windowtags)
  32.  
  33.    IF window ~= '00000000'x THEN DO
  34.       ende = 0
  35.  
  36.       DO WHILE ende ~= 1
  37.          CALL TR_WAIT(app,'')
  38.  
  39.          DO WHILE TR_HANDLEMSG(app,'event')
  40.             IF event.trm_class = 'TRMS_NEWVALUE' THEN DO
  41.                SELECT
  42.                   WHEN event.trm_id = 1 THEN DO
  43.                      SAY 'Nummer:' event.trm_data
  44.  
  45.                      CALL TR_SETATTRIBUTE(window,2,'TRAT_Text',event.trm_data)
  46.                   END
  47.  
  48.                   OTHERWISE
  49.                      NOP
  50.                END
  51.             END
  52.  
  53.             IF event.trm_class = 'TRMS_CLOSEWINDOW' THEN DO
  54.                SAY 'Nummer war:' TR_GETATTRIBUTE(window,1,'TRAT_Value')
  55.  
  56.                ende = 1
  57.             END
  58.          END
  59.       END
  60.  
  61.       CALL TR_CLOSEPROJECT(window)
  62.    END
  63.  
  64.    CALL TR_DELETEAPP(app)
  65. END
  66.  
  67. EXIT(0)
  68.